home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Communications / Network / Anarchie-120 / Example Scripts / Fetch Clipboard < prev    next >
Text File  |  1994-05-10  |  848b  |  20 lines
  1. -- Change these to specify your prefered Umich & Info-Mac FTP sites.
  2. -- Don't use the home sites, as they are already overloaded.
  3. set umichaddr to "archie.au:/micros/mac/umich/"
  4. set infomacaddr to "archie.au:/micros/mac/info-mac/"
  5.  
  6. set theurl to the clipboard
  7. if (theurl contains " /info-mac") and (theurl contains ";") then
  8.     copy ((characters (offset of "/info-mac" in theurl) thru ¬
  9.         ((offset of ";" in theurl) - 1) of theurl) as string) to theurl
  10. end if
  11. if (theurl does not contain ":") and (theurl starts with "/mac/") then
  12.     copy umichaddr & text from character 6 of theurl to end of theurl to theurl
  13. end if
  14. if (theurl does not contain ":") and (theurl starts with "/info-mac/") then
  15.     copy infomacaddr & text from character 11 of theurl to end of theurl to theurl
  16. end if
  17. tell application "Anarchie"
  18.     set theResult to fetch url theurl
  19. end tell
  20.